home *** CD-ROM | disk | FTP | other *** search
/ The Learning Curve / The Learning Curve (Weird Science, 1996).iso / electronics / logicsim / install-logicsim < prev    next >
Encoding:
Text File  |  1996-02-25  |  5.2 KB  |  291 lines
  1. ;$VER: Install-LogicSim v1.0 (07.01.96)
  2.  
  3.  
  4. ;/// German strings
  5.  
  6. (if (= @language "deutsch")
  7. (
  8.  
  9. (set #guidelang
  10. (cat "Bitte wählen Sie die Sprache für die AmigaGuide Online-Hilfe"
  11. ))
  12.  
  13. (set #proglang
  14. (cat "Bitte wählen Sie die Sprache für das Programm LogicSim"
  15. ))
  16.  
  17. (set #destdir
  18. (cat "Bitte wählen Sie das Zielverzeichnis für LogicSim.\n"
  19.      "Ein Unterverzeichnis \"LogicSim\" wird erzeugt."
  20. ))
  21.  
  22. (set #copying
  23. (cat "Kopiere ..."
  24. ))
  25.  
  26. (set #selectiffviewer
  27. (cat "Bitte wählen Sie einen iff-Anzeiger für die Grafik in der AmigaGuide-Dokumentation aus. Er sollte ein Fenster auf der Workbench benutzen (z.B. multiview oder wdisplay)"
  28. ))
  29.  
  30. (set #createscript
  31. (cat "Erzeuge Show-Script für AmigaGuide ..."
  32. ))
  33.  
  34. (set #showerror
  35. (cat "Fehler beim Anzeigen der Iff-Datei"
  36. ))
  37.  
  38. (set #installasl
  39. (cat "Achtung: Sie müssen die asl.library ODER die reqtools.library installieren !"
  40. ))
  41.  
  42. (set #oldinstall
  43. (cat "Es befindet sich eine ältere Installation von LogicSim in diesem Verzeichnis. Ich werde es in LogicSim_old umbenennen."
  44. ))
  45.  
  46.  
  47. ))
  48.  
  49. ;///
  50.  
  51. ;/// English strings
  52.  
  53. (if (= @language "english")
  54. (
  55.  
  56. (set #guidelang
  57. (cat "Please select the language for the AmigaGuide Online-Help"
  58. ))
  59.  
  60. (set #proglang
  61. (cat "Please select the language for the program LogicSim"
  62. ))
  63.  
  64. (set #destdir
  65. (cat "Please select the destination directory for LogicSim.\n"
  66.      "A sub-directory \"LogicSim\" will be created."
  67. ))
  68.  
  69. (set #copying
  70. (cat "Copying ..."
  71. ))
  72.  
  73. (set #selectiffviewer
  74. (cat "Please select your favorite iff-viewer for the graphics in the AmigaGuide-documentation. It should be viewer which uses a window on the workbench (e.g. multiview or wdisplay)."
  75. ))
  76.  
  77. (set #createscript
  78. (cat "Creating Show-Script for AmigaGuide ..."
  79. ))
  80.  
  81. (set #showerror
  82. (cat "Error while showing iff file"
  83. ))
  84.  
  85. (set #installasl
  86. (cat "Note: You have to install the asl.library OR reqtools.library !"
  87. ))
  88.  
  89. (set #oldinstall
  90. (cat "There is an older installation of LogicSim in the same directory. I'll rename it to LogicSim_old, so you can delete it later."
  91. ))
  92.  
  93. ))
  94.  
  95. ;///
  96.  
  97. (complete 1)
  98.  
  99. ;/// create destination dir
  100.  
  101. (set destination
  102.     (askdir (prompt #destdir)
  103.             (default @default-dest)
  104.             (help @askdir-help)
  105.     )
  106. )
  107.  
  108. (set @default-dest destination)
  109.  
  110. (set destination (expandpath destination))
  111. (set destination (tackon destination "LogicSim"))
  112.  
  113. (if (<> 0 (exists destination))
  114. (
  115.     (message #oldinstall)
  116.     (run (cat "rename \"" destination "\" \"" destination "_old\""))
  117.     (run (cat "delete \"" destination ".info\" >nil:"))
  118. ))
  119.  
  120. (makedir destination)
  121. (run (cat "copy " "/LogicSim.info \"" destination ".info\""))
  122.  
  123. ;///
  124.  
  125. (complete 10)
  126.  
  127. ;/// copy main program
  128. (copyfiles
  129.         (prompt #copying)
  130.         (source "")
  131.         (pattern "LogicSim#?")
  132.         (dest destination)
  133.         (help @copyfiles-help)
  134. )
  135.  
  136. ;///
  137.  
  138. (complete 30)
  139.  
  140. ;/// copy example circuits
  141.  
  142. (makedir (cat destination "/Circuits"))
  143.  
  144. (copyfiles
  145.         (prompt #copying)
  146.         (source "Circuits/")
  147.         (pattern "#?")
  148.         (infos)
  149.         (dest (cat destination "/Circuits"))
  150.         (help @copyfiles-help)
  151. )
  152. ;///
  153.  
  154. (complete 50)
  155.  
  156. ;/// copy docs
  157.  
  158. (set choice
  159.         (askchoice
  160.             (prompt #guidelang)
  161.             (choices "English" "Deutsch")
  162.             (default 0)
  163.             (help @askoptions-help)
  164.         )
  165. )
  166.  
  167. (set doc_file
  168.         (select choice
  169.                 "LogicSim.guide"
  170.                 "LogicSim_deutsch.guide"
  171.         )
  172. )
  173.  
  174.  
  175. (makedir (cat destination "/doc"))
  176.  
  177. (copyfiles
  178.         (prompt #copying)
  179.         (source (cat "doc/" doc_file))
  180.         (dest (cat destination "/doc"))
  181.         (infos)
  182.         (newname "LogicSim.guide")
  183.         (help @copyfiles-help)
  184. )
  185.  
  186. (makedir (cat destination "/doc/gfx"))
  187.  
  188. (copyfiles
  189.         (prompt #copying)
  190.         (source "doc/gfx/")
  191.         (pattern "#?")
  192.         (dest (cat destination "/doc/gfx/"))
  193.         (help @copyfiles-help)
  194. )
  195.  
  196. ;///
  197.  
  198. (complete 80)
  199.  
  200. ;/// copy font
  201.  
  202.  
  203. ;(if (<> 0 (exists "FONTS:TinyTxt.font"))
  204. ; (
  205.   (makedir "FONTS:TinyTxt")
  206.  
  207.   (copyfiles
  208.          (prompt #copying)
  209.          (source "fonts/TinyTxt.font")
  210.          (dest "FONTS:")
  211.          (help @copyfiles-help)
  212.   )
  213.  
  214.   (copyfiles
  215.          (prompt #copying)
  216.          (source "fonts/TinyTxt/")
  217.          (pattern "#?")
  218.          (dest "FONTS:TinyTxt/")
  219.          (help @copyfiles-help)
  220.   )
  221. ; ))
  222.  
  223. ;///
  224.  
  225. (complete 85)
  226.  
  227. ;/// copy catalog
  228.  
  229.  
  230. ;(if (<> 0 (exists "LOCALE:" (noreq)))
  231.  
  232.  (set choice
  233.          (askchoice
  234.              (prompt #proglang)
  235.              (choices "English" "Deutsch")
  236.              (default 0)
  237.              (help @askoptions-help)
  238.          )
  239.  )
  240.  
  241.  (if (= 1 choice)
  242.   (copyfiles
  243.           (prompt #copying)
  244.           (source "catalogs/deutsch/LogicSimulator.catalog")
  245.           (dest "LOCALE:catalogs/deutsch/")
  246.           (help @copyfiles-help)
  247.   )
  248.  )
  249.  
  250. ;)
  251.  
  252.  
  253.  
  254. ;///
  255.  
  256. (complete 90)
  257.  
  258. ;/// create SHOW-script
  259.  
  260. (set iffviewer "c:multiview")
  261.  
  262. (set iffviewer
  263.     (askfile (prompt #selectiffviewer)
  264.              (default "sys:utilities/multiview")
  265.              (help #askfile-help)
  266.     )
  267. )
  268.  
  269.  
  270. (textfile
  271.         (prompt #createscript)
  272.         (dest (cat destination "/doc/gfx/Show"))
  273.         (append (cat ".key filename\nfailat 21\n" iffviewer " <filename>\nif WARN\n Requestchoice \"Info\" \"" #showerror "\" \"OK\"\nendif\n"))
  274. )
  275.  
  276. ;///
  277.  
  278. (complete 95)
  279.  
  280. ;/// look for asl.library
  281.  
  282. (if (= 0 (exists "LIBS:asl.library"))
  283.  (if (= 0 (exists "LIBS:reqtools.library"))
  284.   (message #installasl)
  285.  )
  286. )
  287.  
  288. ;///
  289.  
  290. (complete 100)
  291.